home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tj.d64 / print quiz.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  94 lines

  1. 100 PRINT"[147]_[146] TO GO BACK"
  2. 110 PRINT"        *** PRINT OPTION *** [146]"
  3. 120 PRINT"PRINT A HARD COPY OF COMPUTER QUIZ[146]."
  4. 130 PRINT"NOTE[146] - REMEMBER TO DO THE FOLLOWING:"
  5. 140 PRINT"1. INSERT PAPER OR STENCIL IN PRINTER."
  6. 150 PRINT"2. ADJUST PAPER OR STENCIL PROPERLY."
  7. 160 PRINT"3. TURN ON PRINTER."
  8. 170 PRINT" PRESS <RETURN> TO PRINT COMPUTER QUIZ[146]"
  9. 180 GETA$:IFA$=""THEN180
  10. 190 IFA$=CHR$(95)THEN990
  11. 200 IFA$=CHR$(13)THEN220
  12. 210 GOTO180
  13. 220 L$=CHR$(10):OPEN4,4:CMD4
  14. 230 PRINTL$;L$;CHR$(14);"             COMPUTER QUIZ";CHR$(15)
  15. 240 PRINTL$;L$;"TRUE OR FALSE (CIRCLE T OR F):"
  16. 250 PRINTL$
  17. 260 PRINT" 1. T F  THE POWER MUST BE TURNED OFF BEFORE CONNECTING OR DISCONNECT";
  18. 270 PRINT"ING ANY-   THING TO OR FROM THE COMPUTER."
  19. 280 PRINTL$;" 2. T F  BENDING A DISKETTE MAY DAMAGE IT."
  20. 290 PRINTL$;" 3. T F  THE DISKETTE MAY BE REMOVED FROM ITS PLASTIC COVER TO ";
  21. 300 PRINT"CLEAN IT."
  22. 310 PRINTL$;" 4. T F  NEVER TOUCH THE ACTUAL SURFACE OF THE DISKETTE ITSELF ";
  23. 320 PRINT"THROUGH THE OVAL CUTOUT OF THE PLASTIC COVER."
  24. 330 PRINTL$;" 5. T F  WHEN A DISKETTE IS NOT IN USE, IT SHOULD BE STORED INSIDE";
  25. 340 PRINT" THE DISK     DRIVE."
  26. 350 PRINTL$;" 6. T F  IT IS BEST TO STORE DISKETTES VERTICALLY WHEN NOT IN USE."
  27. 360 PRINTL$;" 7. T F  AN INVISIBLE SCRATCH ON THE SURFACE OF THE DISKETTE ";
  28. 370 PRINT"ITSELF CAN CAUSE A PROGRAM ON THE DISKETTE NOT TO WORK PROPERLY."
  29. 380 PRINTL$;" 8. T F  DUST IS NOT A PROBLEM TO A DISKETTE, AS DUST CAN EASILY";
  30. 390 PRINT" BE BLOWN OFF A DISKETTE."
  31. 400 PRINTL$;" 9. T F  THE PAPER POCKETS THAT THE DISKETTES COME IN ARE SPECIAL";
  32. 410 PRINT"LY TREATED TO  MINIMIZE STATIC BUILD-UP."
  33. 420 PRINTL$;"10. T F  IT IS A GOOD IDEA TO HOLD YOUR THUMB OVER THE LABEL WHEN";
  34. 430 PRINT" INSERTING A   DISKETTE INTO THE DISK DRIVE, TO REMIND YOU TO ";
  35. 440 PRINT"INSERT IT PROPERLY."
  36. 450 PRINTL$;"11. T F  IT IS A GOOD IDEA TO LAY A DISKETTE ON TOP OF THE DISK ";
  37. 460 PRINT"DRIVE SO IT WILLBE HANDY WHEN YOU NEED IT."
  38. 470 PRINTL$;"12. T F  WITH THE COMMODORE 64 COMPUTER, BOTH THE COMPUTER AND ";
  39. 480 PRINT"THE DISK DRIVE   MUST BE TURNED 'ON' BEFORE INSERTING THE DISKETTE ";
  40. 490 PRINT"INTO THE DRIVE FOR LOADING."
  41. 500 PRINTL$;"13. T F  TO LOAD A PROGRAM FROM A DISKETTE, YOU PROPERLY INSERT ";
  42. 510 PRINT"THE DISKETTE,   CLOSE THE DOOR OF THE DRIVE, TYPE LOAD ";CHR$(34);
  43. 520 PRINT"PROGRAM NAME";CHR$(34);",8 AND HIT 'RETURN'."
  44. 530 PRINTL$;"14. T F  ONCE A PROGRAM HAS BEEN PROPERLY LOADED, AND THE ";
  45. 540 PRINT"PROMPT 'READY' APPEARSON THE SCREEN, YOU SHOULD TYPE 'RUN'";
  46. 550 PRINT" AND PRESS 'RETURN' TO START THE PROGRAM."
  47. 560 PRINTL$;"15. T F  A DISKETTE IS LIKE A RECORD WITH A COVER; THERE IS NO ";
  48. 570 PRINT"PART WHICH MUST  ENTER THE DRIVE FIRST."
  49. 580 PRINTL$;"16. T F  A DISKETTE MUST BE PUSHED INTO THE DRIVE GENTLY OR ELSE";
  50. 590 PRINT" IT MIGHT BE    DAMAGED."
  51. 600 PRINTL$;"17. T F  NEVER REMOVE A DISKETTE WHILE THE DISK DRIVE'S 'IN USE'";
  52. 610 PRINT" LIGHT IS ON, ASTHIS WILL DESTROY THE DATA ON THE DISKETTE, AND MAY";
  53. 620 PRINT" PERMANENTLY DAMAGE IT."
  54. 630 FORN=1TO7:PRINTL$:NEXTN
  55. 640 PRINTL$;SPC(38)"-2-";L$;L$
  56. 650 PRINTL$;"18. T F  THE EDGE OF THE DISKETTE WITH THE OVAL CUTOUT IN THE ";
  57. 660 PRINT"SQUARE PLASTIC    COVER MUST ENTER THE DRIVE FIRST."
  58. 670 PRINTL$;"19. T F  HEAT AND COLD WON'T BOTHER A DISKETTE, UNLESS YOU GET ";
  59. 680 PRINT"THE PLASTIC SO   HOT IT MELTS."
  60. 690 PRINTL$;"20. T F  A DISKETTE SHOULD NEVER BE STORED NEAR A MAGNET, AN ";
  61. 700 PRINT"ELECTRIC MOTOR, OR EVEN A TELEVISION SET."
  62. 710 PRINTL$;"21. T F  THE DOOR OF THE DISK DRIVE MUST BE CLOSED IN ORDER FOR ";
  63. 720 PRINT"THE DRIVE TO    OPERATE."
  64. 730 PRINTL$;"22, T F  TO LABEL YOUR DISKETTE, A FELT PEN SHOULD BE USED. THE ";
  65. 740 PRINT"BEST IDEA IS TO WRITE ON THE LABEL FIRST, THEN ATTACH IT TO THE ";
  66. 750 PRINT"DISKETTE."
  67. 760 PRINTL$;"23. T F  A CHARGE OF STATIC ELECTRICITY CAN DAMAGE THE INFORMAT";
  68. 770 PRINT"ION ON A DISKETTE"
  69. 780 PRINTL$;"24. T F  THINK OF THE DOOR FOR THE DISK DRIVE LIKE THE DOOR TO ";
  70. 790 PRINT"YOUR HOME - KEEP IT CLOSED WHETHER THE DRIVE CONTAINS A DISKETTE OR ";
  71. 800 PRINT"NOT."
  72. 810 PRINTL$;"25. T F  SHOULD YOU WISH TO SAVE YOUR WRITTEN WORK YOU DID WITH ";
  73. 820 PRINT"A WORD PROCESS- ING PROGRAM SUCH AS 'BANK STREET WRITER' YOU ";
  74. 830 PRINT"SHOULD REMOVE THE PROGRAM DISKETTE AND INSERT YOUR OWN PROPERLY ";
  75. 840 PRINT"FORMATTED DISKETTE BEFORE SAVING."
  76. 850 PRINT#4:CLOSE4
  77. 860 PRINT"[147]DO YOU WISH TO PRINT ANOTHER COPY?":PRINT"Y[146]ES OR N[146]O"
  78. 870 GETA$:IFA$=""THEN870
  79. 880 IFA$="Y"THENRUN
  80. 890 IFA$="N"THEN910
  81. 900 GOTO860
  82. 910 PRINT"[147]CHOOSE ONE OF THE FOLLOWING OPTIONS:"
  83. 920 PRINT"1[146]. QUIT PROGRAM"
  84. 930 PRINT"2[146]. RETURN TO MAIN PROGRAM"
  85. 940 GETA$:IFA$<>""THEN940
  86. 950 GETA$:IFA$=""THEN950
  87. 960 IFA$="1"THENPRINT"[147]":END
  88. 970 IFA$="2"THEN990
  89. 980 GOTO910
  90. 990 PRINT"[147]"
  91. 1000 PRINT"LOAD"CHR$(34)"0:QUIZ"CHR$(34)",8"
  92. 1010 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  93. 1020 POKE631,13:POKE632,13:POKE198,2:END
  94.